6
How do I put a picture on the control's background

with AxStatusBar1 do
begin
	BeginUpdate();
	(GetOcx() as EXSTATUSBARLib.StatusBar).Picture := AxStatusBar1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	Format := '1,2,3,4,(5/6/7/8)';
	Debug := True;
	EndUpdate();
end
5
How do I change the control's foreground color

with AxStatusBar1 do
begin
	BeginUpdate();
	ForeColor := Color.FromArgb(120,120,120);
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	Format := '1,2,3,4,(5/6/7/8)';
	Debug := True;
	EndUpdate();
end
4
How do I change the control's background color

with AxStatusBar1 do
begin
	BeginUpdate();
	BackColor := Color.FromArgb(200,200,200);
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	Format := '1,2,3,4,(5/6/7/8)';
	Debug := True;
	EndUpdate();
end
3
How do I change the control's border, using your EBN files

with AxStatusBar1 do
begin
	BeginUpdate();
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	Appearance := EXSTATUSBARLib.AppearanceEnum($1000000);
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	Format := '1,2,3,4,(5/6/7/8)';
	Debug := True;
	EndUpdate();
end
2
How do I remove the control's border

with AxStatusBar1 do
begin
	BeginUpdate();
	Appearance := EXSTATUSBARLib.AppearanceEnum.None2;
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	Format := '1,2,3,4,(5/6/7/8)';
	Debug := True;
	EndUpdate();
end
1
How can I change the control's font

with AxStatusBar1 do
begin
	BeginUpdate();
	VisualAppearance.Add(4,'c:\exontrol\images\border.ebn');
	VisualAppearance.Add(5,'CP:4 1 1 -1 -1');
	(GetOcx() as EXSTATUSBARLib.StatusBar).BackColorPanels := $5000000;
	f := (ComObj.CreateComObject(ComObj.ProgIDToClassID('StdFont')) as stdole.StdFont);
	with f do
	begin
		Name := 'Verdana';
		Size := 12;
	end;
	Font := (f as stdole.StdFont);
	Format := '"static text"[fg=255][a=17],11,22,(33/44)';
	EndUpdate();
end